home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pcppal.arc / PCP.CMD < prev    next >
Encoding:
Text File  |  1987-01-01  |  1.7 KB  |  40 lines
  1.  
  2.    ASSIGN S6 "ATDT9565777!"    ; Change to your local PC-Pursuit number
  3.    ASSIGN S7 "1234567""        ; Change to your Password
  4.    ASSIGN S8 "YOURMAMMA"       ; Change to your ID
  5.    ASSIGN S9 "12"              ; Change to your Baud rate 12=1200, 3=300
  6.                                ; Don't foget to leave the "!" in line 1 (S6)
  7.  
  8.    SET CR_IN CR                ; Make sure there are no extra LF's in menu
  9.    CLEAR                       ; Clear the screen
  10.  
  11.    LOCATE 1,0                  ; Locate the cursor at Line 1, col 0
  12.  
  13.    CLEAR                       ; Clear the screen
  14.    SET PARITY EVEN             ; Set Paramaters for Telenet
  15.    SET DATABITS 7
  16.    MESSAGE "DIALING PCP"       ; Let 'em know what's happening
  17.    LOCATE 0,12                 ; Position the cursor
  18.    MESSAGE S1                  ; Include the City in the message
  19.  
  20.  
  21.    TRANSMIT S6                 ; Call local Telenet Number (stored in S6)
  22.    WAITFOR "CONNECT" 15        ; Wait for 15 seconds for "CONNECT"
  23.  
  24.    IF NOT WAITFOR              ; If "CONNECT" isn't found
  25.       CLEAR                    ; clear the screen
  26.       HANGUP                   ; Hang up the phone
  27.       MESSAGE "PCP TELENET IS BUSY.  REDIALING..."
  28.       GOTO L2                  ; Loop to the beginning.
  29.    ENDIF
  30.  
  31.  
  32.    PAUSE 2                     ; If "CONNECT" is found, Pause 2 seconds
  33.    TRANSMIT "^m^m"             ; Get Telenet's attention
  34.    WAITFOR "="                 ; Wait for "TERMINAL=" prompt
  35.    TRANSMIT "D1!"              ; Transmit Terminal type
  36.    WAITFOR "@"                 ; Wait for Telenet's Prompt
  37.    CLEAR                       ; Clear the screen
  38.    LOCATE 1,0                  ; Re-position the cursor
  39.    EXECUTE "INTRO.CMD"         ; Call the next command file
  40.